Μιγαδικοί

Επειδή το WLJS δεν υποστηρίζει όλα τα `PlotTheme` του Mathematica, υπάρχει η λύση του `MMAView` για όσους δουλεύουν στο WLJS. Συγκεκριμένα, ενώ επί παραδείγματι το παρακάτω δεν εμφάνιζε κάτι: `Plot[f[x], {x, -8, 8}, PlotTheme -> "Marketing"]` γράφοντας τελικά: `Plot[f[x], {x, -8, 8}, PlotTheme -> "Marketing"]//MMAView` εμφανίζεται το γράφημα όπως ακριβώς το παράγει το Mathematica. Για να μην προκύψουν παρανοήσεις σχετικά με τις εντολές της γλώσσας Wolfram, θα εφαρμόσουμε καθολικά το `MMAView`.


                Unprotect[Graphics3D];
Graphics3D /: MMAView[Graphics3D[args__, opts: OptionsPattern[] ] ] = .;
Unprotect[ToString];
ToString[expr: _[__], StandardForm] := With[{view = MMAView[expr]}, ExportString[
    StringReplace[
        (view // ToBoxes) /. {RowBox->RowBoxFlatten} // ToString
    , {"\[NoBreak]"->""}]
, "String"]];
Protect[ToString];

Γραφικές παραστάσεις μιγαδικών


                Clear["Global`*"]
f[z_] := z^2 - z


                ComplexPlot3D[f[z], {z, -2 - 10  I, 2 + 10  I}, PlotLegends -> Automatic]


                ComplexPlot[f[z] , {z, -6 - 10 I, 6 + 10 I}, PlotLegends -> Automatic]

ComplexPlot[f[z] , {z, -6 - 10 I, 6 + 10 I}, PlotLegends -> Automatic, Mesh -> Automatic, MeshFunctions -> { Re[#2] &,  Im[#2] &}, MeshStyle -> { White, Black}]

Προς το παρόν η παρακάτω εντολή δεν παίζει στο WLJS. `ComplexPlot[f[x], {x, -1 - I, 1 + I}, RegionFunction -> Function[{z}, Abs[z] <= 1], Background -> LightGray, PlotLegends -> Automatic, PlotLabel -> "λ=2.8, x0=0.1", ImageSize -> Medium, Mesh -> 50, MeshFunctions -> { Re[#2] &, Im[#2] &}, MeshStyle -> { White, Black}, PlotPoints -> 200, MaxRecursion -> 4] `

Φράκταλ


                  Clear["Global`*"]
MandelbrotSetPlot[PlotLegends->Automatic]


                  Clear["Global`*"]
r=10/9;
th=Pi/3;
la=r*(Cos[th]+I*Sin[th]);
JuliaSetPlot[la*(1-z)*z,z,PlotLegends->Automatic]